Logs OPC Data Access item changes into an SQL database, using a subscription. Item values and qualities are stored in their respective columns. Notifications with the same timestamp are merged into a single row.
The main program:
// LogToSqlEnhanced: Logs OPC Data Access item changes into an SQL database, using a subscription. Item values and qualities // are stored in their respective columns. Notifications with the same timestamp are merged into a single row. // The database creation script is in the ExamplesNet\MSSQL\QuickOPCExamples.sql file under the product installation // directory. The example assumes that the database is already created. using System; using System.Data; using System.Data.SqlClient; using System.Data.SqlTypes; using System.Diagnostics; using OpcLabs.BaseLib.Runtime.InteropServices; using OpcLabs.EasyOpc.DataAccess; using OpcLabs.EasyOpc.DataAccess.OperationModel; namespace LogToSqlEnhanced { class Program { static void Main() { ComManagement.Instance.AssureSecurityInitialization(); const string connectionString = "Data Source=(local);Initial Catalog=QuickOPCExamples;Integrated Security=true"; Console.WriteLine("Starting up..."); using (var connection = new SqlConnection(connectionString)) { connection.Open(); // Create all necessary ADO.NET objects. var adapter = new SqlDataAdapter("SELECT * FROM ColumnarLog", connection); var dataSet = new DataSet(); adapter.FillSchema(dataSet, SchemaType.Source, "ColumnarLog"); adapter.InsertCommand = new SqlCommandBuilder(adapter).GetInsertCommand(); adapter.UpdateCommand = new SqlCommandBuilder(adapter).GetUpdateCommand(); DataTable table = dataSet.Tables["ColumnarLog"]; Console.WriteLine("Logging for 30 seconds..."); // Subscribe to OPC items, using an anonymous method to process the notifications. int[] handles = EasyDAClient.SharedInstance.SubscribeMultipleItems( new[] { new DAItemGroupArguments("", "OPCLabs.KitServer.2", "Trends.Ramp (1 s)", 1000, null), new DAItemGroupArguments("", "OPCLabs.KitServer.2", "Trends.Ramp (10 s)", 1000, null), new DAItemGroupArguments("", "OPCLabs.KitServer.2", "Trends.Ramp (1 min)", 1000, null), new DAItemGroupArguments("", "OPCLabs.KitServer.2", "Trends.Ramp (10 min)", 1000, null) }, (_, eventArgs) => { Debug.Assert(!(eventArgs is null)); Console.Write("."); // In this example, we only log valid data. Production logger would also log errors. if (!(eventArgs.Vtq is null)) { // Fill a DataRow with the OPC data, and add it to a DataTable. DateTime timestamp = (eventArgs.Vtq.Timestamp < (DateTime) SqlDateTime.MinValue) ? (DateTime) SqlDateTime.MinValue : eventArgs.Vtq.Timestamp; DataRow row = dataSet.Tables["ColumnarLog"].Rows.Find(timestamp); bool adding = (row is null); if (adding) { row = table.NewRow(); row["Timestamp"] = timestamp; } switch (eventArgs.Arguments.ItemDescriptor.ItemId) { case "Trends.Ramp (1 s)": row["Ramp1Value"] = eventArgs.Vtq.Value ?? DBNull.Value; row["Ramp1Quality"] = (short)eventArgs.Vtq.Quality; break; case "Trends.Ramp (10 s)": row["Ramp2Value"] = eventArgs.Vtq.Value ?? DBNull.Value; row["Ramp2Quality"] = (short)eventArgs.Vtq.Quality; break; case "Trends.Ramp (1 min)": row["Ramp3Value"] = eventArgs.Vtq.Value ?? DBNull.Value; row["Ramp3Quality"] = (short)eventArgs.Vtq.Quality; break; case "Trends.Ramp (10 min)": row["Ramp4Value"] = eventArgs.Vtq.Value ?? DBNull.Value; row["Ramp4Quality"] = (short)eventArgs.Vtq.Quality; break; } if (adding) table.Rows.Add(row); // Update the underlying DataSet using an insert command. adapter.Update(dataSet, "ColumnarLog"); // IMPROVE: For long-running logs, you may have to remove old DataTable.Rows from memory. } } ); System.Threading.Thread.Sleep(30 * 1000); Console.WriteLine(); Console.WriteLine("Shutting down..."); EasyDAClient.SharedInstance.UnsubscribeMultipleItems(handles); } Console.WriteLine("Finished."); } } }
' LogToSqlEnhanced: Logs OPC Data Access item changes into an SQL database, using a subscription. Item values and qualities ' are stored in their respective columns. Notifications with the same timestamp are merged into a single row. ' The database creation script is in the ExamplesNet\MSSQL\QuickOPCExamples.sql file under the product installation ' directory. The example assumes that the database is already created. Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports OpcLabs.BaseLib.Runtime.InteropServices Imports OpcLabs.EasyOpc.DataAccess Imports OpcLabs.EasyOpc.DataAccess.OperationModel Friend Class Program Shared WithEvents _client As New EasyDAClient Shared _adapter As SqlDataAdapter Shared _dataSet As DataSet Shared _table As DataTable <MTAThread> ' needed for COM security initialization to succeed Shared Sub Main() ComManagement.Instance.AssureSecurityInitialization() Const connectionString As String = "Data Source=(local);Initial Catalog=QuickOPCExamples;Integrated Security=true" Console.WriteLine("Starting up...") Using connection = New SqlConnection(connectionString) connection.Open() ' Create all necessary ADO.NET objects. _adapter = New SqlDataAdapter("SELECT * FROM ColumnarLog", connection) _dataSet = New DataSet() _adapter.FillSchema(_dataSet, SchemaType.Source, "ColumnarLog") _adapter.InsertCommand = (New SqlCommandBuilder(_adapter)).GetInsertCommand() _adapter.UpdateCommand = (New SqlCommandBuilder(_adapter)).GetUpdateCommand() _table = _dataSet.Tables("ColumnarLog") Console.WriteLine("Logging for 30 seconds...") ' Subscribe to OPC items, using an anonymous method to process the notifications. Dim [handles]() As Integer = _client.SubscribeMultipleItems(New DAItemGroupArguments() { New DAItemGroupArguments("", "OPCLabs.KitServer.2", "Trends.Ramp (1 s)", 1000, Nothing), New DAItemGroupArguments("", "OPCLabs.KitServer.2", "Trends.Ramp (10 s)", 1000, Nothing), New DAItemGroupArguments("", "OPCLabs.KitServer.2", "Trends.Ramp (1 min)", 1000, Nothing), New DAItemGroupArguments("", "OPCLabs.KitServer.2", "Trends.Ramp (10 min)", 1000, Nothing) }) Threading.Thread.Sleep(30 * 1000) Console.WriteLine() Console.WriteLine("Shutting down...") _client.UnsubscribeMultipleItems([handles]) End Using Console.WriteLine("Finished.") End Sub Private Shared Sub ItemChanged(ByVal sender As Object, ByVal eventArgs As EasyDAItemChangedEventArgs) Handles _client.ItemChanged Console.Write(".") ' In this example, we only log valid data. Production logger would also log errors. If eventArgs.Vtq IsNot Nothing Then ' Fill a DataRow with the OPC data, and add it to a DataTable. Dim timestamp As Date = If( _ eventArgs.Vtq.Timestamp < CDate(SqlDateTime.MinValue), _ CDate(SqlDateTime.MinValue), _ eventArgs.Vtq.Timestamp) Dim row As DataRow = _dataSet.Tables("ColumnarLog").Rows.Find(timestamp) Dim adding As Boolean = (row Is Nothing) If adding Then row = _table.NewRow() row("Timestamp") = timestamp End If Select Case eventArgs.Arguments.ItemDescriptor.ItemId Case "Trends.Ramp (1 s)" row("Ramp1Value") = If(eventArgs.Vtq.Value, DBNull.Value) row("Ramp1Quality") = CShort(Fix(eventArgs.Vtq.Quality)) Case "Trends.Ramp (10 s)" row("Ramp2Value") = If(eventArgs.Vtq.Value, DBNull.Value) row("Ramp2Quality") = CShort(Fix(eventArgs.Vtq.Quality)) Case "Trends.Ramp (1 min)" row("Ramp3Value") = If(eventArgs.Vtq.Value, DBNull.Value) row("Ramp3Quality") = CShort(Fix(eventArgs.Vtq.Quality)) Case "Trends.Ramp (10 min)" row("Ramp4Value") = If(eventArgs.Vtq.Value, DBNull.Value) row("Ramp4Quality") = CShort(Fix(eventArgs.Vtq.Quality)) End Select If adding Then _table.Rows.Add(row) End If ' Update the underlying DataSet using an insert command. _adapter.Update(_dataSet, "ColumnarLog") ' IMPROVE: For long-running logs, you may have to remove old DataTable.Rows from memory. End If End Sub End Class
Copyright © 2004-2023 CODE Consulting and Development, s.r.o., Plzen. All rights reserved. Web page: www.opclabs.com
Send Documentation Feedback. Resources: Knowledge Base. Technical support: Online Forums, FAQ.